Chip 1998 March/Chip_1998-03_cd.bin/oddech/RELAXACE/APLIKACE/UVOD/UVOD.DXR/00056_Najezd a klik.ls

Text File | 1998-01-12 | 767 b | 40 lines

property Znacka

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Znacka, [#comment: "Znacka:", #format: #string, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
  set the visible of sprite (the spriteNum of me + 1) to 0
end

on endSprite me
end

on mouseEnter me
  puppetSound(1, "Najezd")
  set the cursor of sprite the spriteNum of me to [59, 60]
  set the visible of sprite (the spriteNum of me + 1) to 1
end

on mouseLeave me
  set the visible of sprite (the spriteNum of me + 1) to 0
end

on mouseDown me
  puppetSound(1, "Klik")
  repeat while soundBusy(1)
  end repeat
end

on mouseUp me
  go(Znacka)
end